home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TeX 1995 July
/
TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO
/
web
/
fweb
/
fweb-1.40
/
manual
/
f_to_web.src
< prev
next >
Wrap
Text File
|
1993-10-29
|
686b
|
41 lines
C --- SIMPLE DEMO FORTRAN SOURCE PROGRAM ---
C (SEE f_to_web.web FOR ITS web TRANSLATION)
program main
integer i
real x
common/test/ x,i
C Initialize values.
x = -3.14159e-11
i = 1
C Print results.
call see
end
subroutine see
integer i
real x
common/test x,i
write(6,100) x,i
100 format('x = ',1pe10.2,', i = ',i2)
return
end
integer function f(a,b,n)
integer n
real a(0:n-1),b(0:n-1)
integer k
do 10 k=0,n-1
a(k) = k
b(k) = k**2
10 continue
f = n
return
end